﻿Public Class Form1
  Private Sub Button1_Click(
        ByVal sender As System.Object,
        ByVal e As System.EventArgs) _
        Handles Button1.Click
    Dim i As Integer = 0
    For i = 0 To 100
      ProgressBar1.Value = i
      ProgressBar2.Value = i
      ProgressBar3.Value = i
      System.Threading.Thread.Sleep(100)
      Application.DoEvents()
    Next
  End Sub
End Class
